home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 26.zip / BS1 part 26 / Powervisor v1.10b disk1.adf / install.script < prev    next >
Text File  |  1991-09-28  |  17KB  |  652 lines
  1. ;Script file to install PowerVisor V1.10
  2.  
  3. FailAt 21
  4.  
  5. Echo "*nPowerVisor V1.10 installation procedure*n"
  6.  
  7. Ask "Do you really want to install PowerVisor V1.10 ?"
  8. If NOT WARN
  9.    Skip TheEnd
  10. EndIf
  11.  
  12. Echo "*n"
  13. c/Input "Enter subdirectory name for PowerVisor : " env:PVName
  14.  
  15. c/DirName env:PVName
  16. If EXISTS $PVName
  17.    Echo "Warning! This subdirectory already exists.*n"
  18.    Ask "Continue ?"
  19.    If NOT WARN
  20.       Skip TheEnd
  21.    EndIf
  22. Else
  23.    MakeDir $PVName
  24. EndIf
  25. c/DevName env:PVName
  26.  
  27. SetEnv StandardS "0"
  28. SetEnv StandardLibs "0"
  29.  
  30. Echo "*n--------------------------------------------------------------------"
  31. Echo "*nWhere do you want the PowerVisor executables ?"
  32. Echo "(PowerVisor is ±100K big, all other executables are ±20K)"
  33. Echo "      0 : abort installation"
  34. Echo "      1 : in the 'c:' directory"
  35. Echo "      2 : in the '${PVName}c' directory"
  36. Echo "      3 : somewhere else"
  37. Echo "      4 : don't install the PowerVisor executables"
  38.  
  39. Lab EnterChoice
  40.  
  41.    c/Input "   Enter choice : " env:Choice
  42.  
  43.    If $Choice EQ "0"
  44.       Skip TheEnd
  45.    EndIf
  46.  
  47.    If $Choice EQ "1"
  48.       Skip InCDir
  49.    EndIf
  50.  
  51.    If $Choice EQ "2"
  52.       Skip InPVCDir
  53.    EndIf
  54.  
  55.    If $Choice EQ "3"
  56.       Skip AskCDir
  57.    EndIf
  58.  
  59.    If $Choice EQ "4"
  60.       Skip DontInstallExec
  61.    EndIf
  62.  
  63.    Echo "   Illegal choice!"
  64.    Skip EnterChoice back
  65.  
  66. Lab InCDir
  67.    setenv CDir c:
  68.    Skip InstallExec
  69.  
  70. Lab InPVCDir
  71.    SetEnv CDir ${PVName}c
  72.    Skip InstallExec
  73.  
  74. Lab AskCDir
  75.    c/Input "   Enter subdirectory for the PowerVisor executables : " env:CDir
  76.  
  77. Lab InstallExec
  78.    c/DirName env:CDir
  79.    If NOT EXISTS $CDir
  80.       MakeDir $CDir
  81.    EndIf
  82.    c/DevName env:CDir
  83.  
  84.    Version >NIL: exec.library 36
  85.    If NOT WARN
  86.       SetEnv Name13 "13"
  87.       SetEnv Name20 ""
  88.       SetEnv Dos20 "1"
  89.       Echo "   Your Amiga has Kickstart 2.0 (V36) or higher in ROM."
  90.       Ask "   Do you want to install the AmigaDOS 1.3 executables ?"
  91.       If WARN
  92.          SetEnv Dos13 "1"
  93.       Else
  94.          SetEnv Dos13 "0"
  95.       EndIf
  96.    Else
  97.       SetEnv Name13 ""
  98.       SetEnv Name20 "20"
  99.       SetEnv Dos13 "1"
  100.       Echo "   Your Amiga has Kickstart 1.3 or lower in ROM."
  101.       Ask "   Do you want to install the AmigaDOS 2.0 executables ?"
  102.       If WARN
  103.          SetEnv Dos20 "1"
  104.       Else
  105.          SetEnv Dos20 "0"
  106.       EndIf
  107.    EndIf
  108.  
  109.     SetEnv Source "c/"
  110.     SetEnv Return "Return1"
  111.     SetEnv Arg "Executables"
  112.     SetEnv File "pv"
  113.     Skip CheckFile
  114.     Lab Return1
  115.  
  116.    If $Dos13 EQ "1"
  117.       Copy ${Source}pv13 ${CDir}pv${Name13}
  118.       Copy ${Source}pv13.info ${CDir}pv${Name13}.info
  119.    EndIf
  120.    If $Dos20 EQ "1"
  121.       Copy ${Source}pv ${CDir}pv${Name20}
  122.       Copy ${Source}pv.info ${CDir}pv${Name20}.info
  123.    EndIf
  124.  
  125.    Echo "   Do you want to install QuickHelp and MStruct"
  126.    Ask "   additional utilities useful for PowerVisor ?"
  127.    If WARN
  128.       If $Dos13 EQ "1"
  129.          Copy ${Source}Help13 ${CDir}Help${Name13}
  130.          Copy ${Source}MakeHelp13 ${CDir}MakeHelp${Name13}
  131.          Copy ${Source}ArcFiles13 ${CDir}ArcFiles${Name13}
  132.          Copy ${Source}MStruct13 ${CDir}MStruct${Name13}
  133.       EndIf
  134.       If $Dos20 EQ "1"
  135.          Copy ${Source}Help ${CDir}Help${Name20}
  136.          Copy ${Source}MakeHelp ${CDir}MakeHelp${Name20}
  137.          Copy ${Source}ArcFiles ${CDir}ArcFiles${Name20}
  138.          Copy ${Source}MStruct ${CDir}MStruct${Name20}
  139.       EndIf
  140.    EndIf
  141.  
  142.    Echo "*n   PowerVisor executables installed in '${CDir}'"
  143.  
  144. Lab DontInstallExec
  145.  
  146.    Echo "*n--------------------------------------------------------------------"
  147.    Echo "*nWhere do you want the PowerVisor online help files, the error file"
  148.    Echo "and the standard PowerVisor startup script ?"
  149.    Echo "(Online help and error files are ±170K big)"
  150.    Echo "      0 : abort installation"
  151.    Echo "      1 : in the 's:' directory"
  152.    Echo "      2 : in the '${PVName}s' directory"
  153.    Echo "      3 : somewhere else"
  154.    Echo "      4 : don't install the PowerVisor online help and error files"
  155.  
  156.    Lab EnterChoice2
  157.  
  158.       c/Input "   Enter choice : " env:Choice
  159.  
  160.       If $Choice EQ "0"
  161.          Skip TheEnd
  162.       EndIf
  163.  
  164.       If $Choice EQ "1"
  165.          Skip InSDir
  166.       EndIf
  167.  
  168.       If $Choice EQ "2"
  169.          SetEnv StandardS "1"
  170.          Skip InPVSDir
  171.       EndIf
  172.  
  173.       If $Choice EQ "3"
  174.          SetEnv StandardS "1"
  175.          Skip AskSDir
  176.       EndIf
  177.  
  178.       If $Choice EQ "4"
  179.          setenv SDir s:
  180.          SetEnv StandardS "2"
  181.          Skip DontInstallHelp
  182.       EndIf
  183.  
  184.       Echo "   Illegal choice!"
  185.       Skip EnterChoice2 back
  186.  
  187.    Lab InSDir
  188.       setenv SDir s:
  189.       Skip InstallHelp
  190.  
  191.    Lab InPVSDir
  192.       SetEnv SDir ${PVName}s
  193.       Skip InstallHelp
  194.  
  195.    Lab AskSDir
  196.       c/Input "   Enter subdirectory for the online help and error files : " env:SDir
  197.  
  198.    Lab InstallHelp
  199.       c/DirName env:SDir
  200.       If NOT EXISTS $SDir
  201.          MakeDir $SDir
  202.       EndIf
  203.       c/DevName env:SDir
  204.  
  205.         SetEnv Source "s/"
  206.         SetEnv Return "Return2"
  207.         SetEnv Arg "Help and error files"
  208.         SetEnv File "PowerVisor-errors"
  209.         Skip CheckFile
  210.         Lab Return2
  211.  
  212.       Copy ${Source}PowerVisor-help ${SDir}PowerVisor-help
  213.       Copy ${Source}PowerVisor-ctrl ${SDir}PowerVisor-ctrl
  214.       Copy ${Source}PowerVisor-errors ${SDir}PowerVisor-errors
  215.       If EXISTS ${SDir}PowerVisor-startup
  216.           Copy >NIL: ${SDir}PowerVisor-startup ${SDir}PowerVisor-startup.bak
  217.           Echo "   Old PowerVisor-startup file renamed to PowerVisor-startup.bak"
  218.       EndIf
  219.       Copy ${Source}PowerVisor-startup ${SDir}PowerVisor-startup
  220.  
  221.        If $Dos20 EQ "1"
  222.           If EXISTS ${SDir}PowerVisor-menus
  223.               Copy >NIL: ${SDir}PowerVisor-menus ${SDir}PowerVisor-menus.bak
  224.               Echo "   Old PowerVisor-menus file renamed to PowerVisor-menus.bak"
  225.           EndIf
  226.           Copy ${Source}PowerVisor-menus ${SDir}PowerVisor-menus
  227.        EndIf
  228.  
  229.       If EXISTS ${SDir}PowerVisor-config
  230.          Skip PVConfigErr
  231.       EndIf
  232.       If EXISTS s:PowerVisor-config
  233.          Lab PVConfigErr
  234.          Echo "   Warning! You already have a PowerVisor-config file !"
  235.          Echo "   If you are installing a new version of PowerVisor it is probably"
  236.          Echo "   better to delete the old PowerVisor-config file. This is because"
  237.          Echo "   the config file is not always compatible (Read the 'ReadThisFirst'"
  238.          Echo "   file to see if there is a difference between this version and the"
  239.          Echo "   previous version)."
  240.          Ask "   Should I delete this file ?"
  241.          If WARN
  242.             Delete >NIL: ${SDir}PowerVisor-config
  243.             Delete >NIL: s:PowerVisor-config
  244.          EndIf
  245.       EndIf
  246.  
  247.       Echo "*n   PowerVisor online help and error files installed in '${SDir}'"
  248.  
  249. Lab DontInstallHelp
  250.  
  251.    Echo "*n--------------------------------------------------------------------"
  252.    Echo "*nDo you want all the examples ?"
  253.    Echo "(All examples are ±30K big)"
  254.    Echo "      0 : abort installation"
  255.    Echo "      1 : yes, I want them (in '${PVName}')"
  256.    Echo "      2 : no, I don't want them"
  257.  
  258.    Lab EnterChoice3
  259.  
  260.       c/Input "   Enter choice : " env:Choice
  261.  
  262.       If $Choice EQ "0"
  263.          Skip TheEnd
  264.       EndIf
  265.  
  266.       If $Choice EQ "1"
  267.          Skip YesExamples
  268.       EndIf
  269.  
  270.       If $Choice EQ "2"
  271.          Skip NoExamples
  272.       EndIf
  273.  
  274.       Echo "   Illegal choice!"
  275.       Skip EnterChoice3 back
  276.  
  277.    Lab YesExamples
  278.       If NOT EXISTS ${PVName}Examples
  279.          MakeDir ${PVName}Examples
  280.       EndIf
  281.       If NOT EXISTS ${PVName}Source
  282.          MakeDir ${PVName}Source
  283.       EndIf
  284.       If NOT EXISTS ${PVName}PowerVisorLib
  285.          MakeDir ${PVName}PowerVisorLib
  286.       EndIf
  287.  
  288.         SetEnv Source "Examples/"
  289.         SetEnv Return "Return3"
  290.         SetEnv Arg "Example files"
  291.         SetEnv File "BuggyProgram"
  292.         Skip CheckFile
  293.         Lab Return3
  294.  
  295.       Copy >NIL: ${Source}#? ${PVName}Examples
  296.  
  297.         SetEnv Source "Source/"
  298.         SetEnv Return "Return4"
  299.         SetEnv Arg "Source files for examples"
  300.         SetEnv File "BuggyProgram.asm"
  301.         Skip CheckFile
  302.         Lab Return4
  303.  
  304.       Copy >NIL: ${Source}#? ${PVName}Source
  305.  
  306.         SetEnv Source "PowerVisorLib/"
  307.         SetEnv Return "Return5"
  308.         SetEnv Arg "PowerVisor library source files"
  309.         SetEnv File "pv_lib.fd"
  310.         Skip CheckFile
  311.         Lab Return5
  312.  
  313.       Copy >NIL: ${Source}#? ${PVName}PowerVisorLib
  314.  
  315.       Echo "*n   Examples installed in '${PVName}Examples'"
  316.  
  317. Lab NoExamples
  318.  
  319.    Echo "*n--------------------------------------------------------------------"
  320.    Echo "*nDo you want all the documentation ?"
  321.    Echo "(All documentation files are ±800K big)"
  322.    Echo "      0 : abort installation"
  323.    Echo "      1 : yes, I want them (in '${PVName}Docs')"
  324.    Echo "      2 : no, I don't want them"
  325.  
  326.    Lab EnterChoice4
  327.  
  328.       c/Input "   Enter choice : " env:Choice
  329.  
  330.       If $Choice EQ "0"
  331.          Skip TheEnd
  332.       EndIf
  333.  
  334.       If $Choice EQ "1"
  335.          Skip YesDocs
  336.       EndIf
  337.  
  338.       If $Choice EQ "2"
  339.          Skip NoDocs
  340.       EndIf
  341.  
  342.       Echo "   Illegal choice!"
  343.       Skip EnterChoice4 back
  344.  
  345.    Lab YesDocs
  346.       If NOT EXISTS ${PVName}Docs
  347.          MakeDir ${PVName}Docs
  348.       EndIf
  349.  
  350.         SetEnv Source "Docs/"
  351.         SetEnv Return "Return6"
  352.         SetEnv Arg "Document files"
  353.         SetEnv File "CommandReference"
  354.         Skip CheckFile
  355.         Lab Return6
  356.  
  357.       Copy >NIL: ${Source}#? ${PVName}Docs
  358.  
  359.       Echo "*n   Documentation installed in '${PVName}Docs'"
  360.  
  361. Lab NoDocs
  362.  
  363.    Echo "*n--------------------------------------------------------------------"
  364.    Echo "*nWhere do you want the PowerVisor script files ?"
  365.    Echo "(Script files are ±60K big)"
  366.    Echo "Note that some of these files are needed by the standard"
  367.    Echo "PowerVisor-startup file"
  368.    Echo "      0 : abort installation"
  369.    Echo "      1 : in the '${SDir}pv' directory"
  370.    Echo "      2 : somewhere else"
  371.    Echo "      3 : don't install the PowerVisor script files"
  372.  
  373.    Lab EnterChoice5
  374.  
  375.       c/Input "   Enter choice : " env:Choice
  376.  
  377.       If $Choice EQ "0"
  378.          Skip TheEnd
  379.       EndIf
  380.  
  381.       If $Choice EQ "1"
  382.          Skip InSpvDir
  383.       EndIf
  384.  
  385.       If $Choice EQ "2"
  386.          Skip AskSpvDir
  387.       EndIf
  388.  
  389.       If $Choice EQ "3"
  390.          Skip DontInstallScripts
  391.       EndIf
  392.  
  393.       Echo "   Illegal choice!"
  394.       Skip EnterChoice5 back
  395.  
  396.    Lab InSpvDir
  397.       setenv PDir ${SDir}pv
  398.       Skip InstallScripts
  399.  
  400.    Lab AskSpvDir
  401.       c/Input "   Enter subdirectory for the script files : " env:PDir
  402.  
  403.    Lab InstallScripts
  404.       c/DirName env:PDir
  405.       If NOT EXISTS $PDir
  406.          MakeDir $PDir
  407.       EndIf
  408.  
  409.         SetEnv Source "s/pv/"
  410.         SetEnv Return "Return7"
  411.         SetEnv Arg "Script files"
  412.         SetEnv File "db"
  413.         Skip CheckFile
  414.         Lab Return7
  415.  
  416.       Copy >NIL: ${Source}#? ${PDir}
  417.  
  418.       c/DevName env:PDir
  419.       Echo "*n   Script files installed in '${PDir}'"
  420.  
  421. Lab DontInstallScripts
  422.  
  423.    Echo "*n--------------------------------------------------------------------"
  424.    Echo "*nWhere do you want the PowerVisor develop files ?"
  425.    Echo "Note that these files are rather specialized. If you are a novice"
  426.    Echo "PowerVisor user, you won't need them"
  427.    Echo "(Develop files are ±160K big)"
  428.    Echo "      0 : abort installation"
  429.    Echo "      1 : in the '${PVName}PVDevelop' directory"
  430.    Echo "      2 : somewhere else"
  431.    Echo "      3 : don't install the PowerVisor develop files"
  432.  
  433.    Lab EnterChoice7
  434.  
  435.       c/Input "   Enter choice : " env:Choice
  436.  
  437.       If $Choice EQ "0"
  438.          Skip TheEnd
  439.       EndIf
  440.  
  441.       If $Choice EQ "1"
  442.          Skip InPVDevelopDir
  443.       EndIf
  444.  
  445.       If $Choice EQ "2"
  446.          Skip AskDevelopDir
  447.       EndIf
  448.  
  449.       If $Choice EQ "3"
  450.          Skip DontInstallDevelop
  451.       EndIf
  452.  
  453.       Echo "   Illegal choice!"
  454.       Skip EnterChoice7 back
  455.  
  456.    Lab InPVDevelopDir
  457.       setenv DDir ${PVName}PVDevelop
  458.       Skip InstallDevelop
  459.  
  460.    Lab AskDevelopDir
  461.       c/Input "   Enter subdirectory for the develop files : " env:DDir
  462.  
  463.    Lab InstallDevelop
  464.       c/DirName env:DDir
  465.       If NOT EXISTS $DDir
  466.          MakeDir $DDir
  467.       EndIf
  468.       c/DevName env:DDir
  469.  
  470.         SetEnv Source "PVDevelop/"
  471.         SetEnv Return "Return10"
  472.         SetEnv Arg "Develop files"
  473.         SetEnv File "include"
  474.         Skip CheckFile
  475.         Lab Return10
  476.  
  477.       Copy >NIL: ${Source}#? all ${DDir}
  478.  
  479.       Echo "*n   Develop files installed in '${DDir}'"
  480.  
  481. Lab DontInstallDevelop
  482.  
  483.    Echo "*n--------------------------------------------------------------------"
  484.    Echo "*nWhere do you want the PowerVisor library files ?"
  485.    Echo "(Library files are ±1K big)"
  486.    Echo "Note that you PowerVisor really needs these files!"
  487.    Echo "      0 : abort installation"
  488.    Echo "      1 : in the 'libs:' directory"
  489.    Echo "      2 : in the '${PVName}libs' directory"
  490.    Echo "      3 : somewhere else"
  491.    Echo "      4 : don't install the PowerVisor library files"
  492.  
  493.    Lab EnterChoice6
  494.  
  495.       c/Input "   Enter choice : " env:Choice
  496.  
  497.       If $Choice EQ "0"
  498.          Skip TheEnd
  499.       EndIf
  500.  
  501.       If $Choice EQ "1"
  502.          Skip InLibsDir
  503.       EndIf
  504.  
  505.       If $Choice EQ "2"
  506.          SetEnv StandardLibs "1"
  507.          Skip InPVLibsDir
  508.       EndIf
  509.  
  510.       If $Choice EQ "3"
  511.          SetEnv StandardLibs "1"
  512.          Skip AskLibsDir
  513.       EndIf
  514.  
  515.       If $Choice EQ "4"
  516.          SetEnv StandardLibs "2"
  517.          Skip DontInstallLibs
  518.       EndIf
  519.  
  520.       Echo "   Illegal choice!"
  521.       Skip EnterChoice6 back
  522.  
  523.    Lab InLibsDir
  524.       setenv LDir libs:
  525.       Skip InstallLibs
  526.  
  527.    Lab InPVLibsDir
  528.       SetEnv LDir ${PVName}libs
  529.       Skip InstallLibs
  530.  
  531.    Lab AskLibsDir
  532.       c/Input "   Enter subdirectory for the library files : " env:LDir
  533.  
  534.    Lab InstallLibs
  535.       c/DirName env:LDir
  536.       If NOT EXISTS $LDir
  537.          MakeDir $LDir
  538.       EndIf
  539.       c/DevName env:LDir
  540.  
  541.         SetEnv Source "Libs/"
  542.         SetEnv Return "Return8"
  543.         SetEnv Arg "Library files"
  544.         SetEnv File "powervisor.library"
  545.         Skip CheckFile
  546.         Lab Return8
  547.  
  548.       Copy ${Source}powervisor.library ${LDir}powervisor.library
  549.  
  550.       Echo "*n   Libraries installed in '${LDir}'"
  551.  
  552. Lab DontInstallLibs
  553.  
  554.     SetEnv Source ""
  555.     SetEnv Return "Return9"
  556.     SetEnv Arg "Readme and bugs files"
  557.     SetEnv File "ReadThisFirst"
  558.     Skip CheckFile
  559.     Lab Return9
  560.  
  561.    Copy ${Source}pv.bugs ${PVName}pv.bugs
  562.    Copy ${Source}pv.bugs.info ${PVName}pv.bugs.info
  563.    Copy ${Source}ReadThisFirst ${PVName}ReadThisFirst
  564.    Copy ${Source}ReadThisFirst.info ${PVName}ReadThisFirst.info
  565.  
  566.    Echo "*n--------------------------------------------------------------------"
  567.    Echo "*nInstallation is complete*n"
  568.    Echo "Notes :*n"
  569.  
  570.    If $StandardS EQ "1"
  571.       Echo "   In order to have online help and readable error messages"
  572.       Echo "   you will have to assign s: to '${SDir}'."
  573.       Echo "   If you have AmigaDOS 2.0 you can use multiple assignes to accomplish this."
  574.       Echo "   Otherwise I recommend that you put the online help and error file in your"
  575.       Echo "   s: directory*n"
  576.    EndIf
  577.    If $StandardS EQ "2"
  578.       Echo "   Note that you have not installed the online help and error files."
  579.       Echo "   This means that you have no online help and that the error messages"
  580.       Echo "   in PowerVisor will be rather unreadable*n"
  581.    EndIf
  582.  
  583.    If $StandardLibs EQ "1"
  584.       Echo "   In order to be able to run PowerVisor you must have powervisor.library"
  585.       Echo "   in your libs: directory. You can assign libs: to '${LDir}'"
  586.       Echo "   or use the AmigaDOS 2.0 multiple assign feature to accomplish this*n"
  587.    EndIf
  588.    If $StandardLibs EQ "2"
  589.       Echo "   Note that you can't run PowerVisor because you have not installed"
  590.       Echo "   the PowerVisor.library*n"
  591.    EndIf
  592.  
  593.    Ask "Press <enter> to continue"
  594.  
  595.    Echo "*n--------------------------------------------------------------------"
  596.    Echo "*nThe standard s/PowerVisor-startup file needs fd: assigned to the"
  597.    Echo "subdirectory containing all fd-files."
  598.    Ask "*nShould I alter your s:Startup-sequence file for you ?"
  599.    If WARN
  600.       c/Input "Where are your fd-files located ? " env:fddir
  601.       c/DirName env:fddir
  602.       c/DirName env:PVName
  603.       echo >>sys:s/Startup-sequence "assign fd: ${fddir}"
  604.       echo >>sys:s/Startup-sequence "assign pv: ${PVName}"
  605.    EndIf
  606.  
  607. Lab TheEnd
  608.  
  609.    Delete >NIL: env:pvname env:fddir env:ddir env:ldir env:cdir env:sdir env:pdir env:choice env:Source env:Arg env:Dir
  610.    Delete >NIL: env:standards env:standardlibs env:Name13 env:Name20 env:Dos13 env:Dos20 env:Return env:File
  611.  
  612.    Ask "*n*n*nEnd of installation! (press <enter>)"
  613.    EndCli >NIL:
  614.  
  615.  
  616. ;Subroutine to check if a file exists
  617. ;Return address is in env:return
  618. ;Arg string is in env:Arg
  619. ;Initial source is in env:Source
  620. ;Initial file is in env:File
  621.  
  622. Lab CheckFile
  623.     If NOT EXISTS ${Source}${File}
  624.         Echo "   Error ! ${Arg} not found in '$Source' !"
  625.         Echo "      0 : abort installation"
  626.         Echo "      1 : enter new source pathname"
  627.         Echo "      2 : directory"
  628.  
  629.         Lab ChoiceCheckFile
  630.            c/Input "   Enter choice : " env:Choice
  631.  
  632.            If $Choice EQ "0"
  633.               Skip TheEnd back
  634.            EndIf
  635.  
  636.            If $Choice EQ "1"
  637.                 c/Input "   Give correct pathname : " env:Source
  638.                 c/DevName env:Source
  639.                 Skip CheckFile back
  640.            EndIf
  641.  
  642.            If $Choice EQ "2"
  643.                c/Input "   Directory name and parameters for 'dir' : " env:Dir
  644.                Dir ${Dir}
  645.                Skip ChoiceCheckFile back
  646.            EndIf
  647.  
  648.            Echo "   Illegal choice!"
  649.            Skip ChoiceCheckFile back
  650.     EndIf
  651.     Skip $Return back
  652.